ZX Cross Pascal

Andrew771 '2014


   :



----
byte
word
string[N]
   byte  word -   ,  string -  :
ArrayByte [...] of ...
ArrayWord [...] of ...
ArrayString [...] of ...

 
---------------------
:=
Write
Writeln
Read
Readln
If ... then ... else ...
For ... to ... do
While ... do
Repeat ... until


 
----------------
   4*8 
ClrScr -        
GotoXY(Col,Row) -      Col,Row (Col=0..63, Row=0..23)
Pause(N) -  N/50 
Border(N) -   N
Color(N) -     (N =    )
Window(Col,Row,Width,Heigth) -         



---------
     



---------
    0..65535
  
  string    +
  byte  word:
+
-
*
div
mod
(
)
=
>
>=
<
<=
<>